home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / genrv2.arc / GENRV2.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-01-08  |  3.6 KB  |  149 lines
  1.  
  2. REM ============================================
  3. REM == SEAdog/PCPursuit Script File Generator ==     v. 0.02  - 7-18-87
  4. REM ============================================
  5.  
  6. REM     by Cabell B. Clarke Jr.
  7. REM     Boot Factory OPUS/HST  - 804-262-9289 - (13/19)
  8. REM     Modified for RV mode
  9. REM     by John Kelley MFTBBS MultiLIne 201-494-3649  (107/331) - 11/3/87
  10. REM     changed to reflect New Acces Code Format - 1/8/88
  11.  
  12.  
  13.      ON ERROR GOTO TRAP
  14.  
  15.      PRINT
  16.      PRINT
  17.      PRINT "SEAdog Script Generator for P C Pursuit - v. 0.02"
  18.      PRINT "Original Program "
  19.      PRINT "by Cabell Clarke 13/19 - Public Domain Software"
  20.      PRINT "SEAdog is a trademark of System Enhancement Associates"
  21.      PRINT "Modified for PC Pursuit Racal Vadic Node"
  22.      PRINT "by John Kelley MFTBBS MultiLine 201-494-3649 (107/331)"
  23.  
  24.  
  25.      OPEN "i", 2, "config.gs"
  26.      INPUT #2, id$, password$
  27.      CLOSE #2
  28.  
  29.  
  30. INIT:
  31.  
  32.  
  33.      mask$ = "0000"
  34.      ext$ = ".SCR"
  35.      char1$ = "|"
  36.      char2$ = "~"
  37.      cr$ = CHR$(13)
  38.      lf$ = CHR$(10)
  39.      null$ = ""
  40.      e$ = CHR$(5)
  41.      a$ = CHR$(42)
  42.      
  43.      
  44.  
  45. main:
  46.  
  47.      fout$ = null$
  48.      GOSUB NODENET
  49.      GOSUB MAKEFILE
  50.      GOSUB WRITEFILE
  51.      GOTO main
  52.  
  53.  
  54.  
  55. NODENET:
  56.  
  57.      PRINT
  58.      INPUT "Enter net number: (Ctl-C to end) ", net
  59.      INPUT "Enter node number: ", node
  60.      INPUT "Enter Baud Rate: (3/12/24) ", baudrate$
  61.      disp$ = STR$(net) + "/" + STR$(node)
  62.      net$ = HEX$(net)
  63.      node$ = HEX$(node)
  64.      neta$ = STRING$(4 - LEN(net$), "0") + net$
  65.      nodea$ = STRING$(4 - LEN(node$), "0") + node$
  66.      file$ = neta$ + nodea$ + ext$
  67.      INPUT "Enter access code: (SSCCC) where SS = state, CCC = city ", areacode$
  68.      pcp$ = areacode$ + "/" + baudrate$
  69.      INPUT "Enter 7 digit phone number (no area code): ", fon$
  70.      RETURN
  71.  
  72. MAKEFILE:
  73. OUT$ = "@"
  74. GOSUB BUILDFILE
  75. OUT$ = char2$ + char2$ + cr$ + lf$
  76. GOSUB BUILDFILE
  77. OUT$ = "D" + cr$ + lf$
  78. GOSUB BUILDFILE
  79. OUT$ = char1$ + "TERMINAL=" + char1$ + "D1" + cr$ + lf$
  80. GOSUB BUILDFILE
  81. OUT$ = char1$ + "@" + char1$ + "~C D/" + pcp$ + "," + id$ + cr$ + lf$
  82. GOSUB BUILDFILE
  83. OUT$ = char1$ + "PASSWORD = " + char1$ + password$ + cr$ + lf$
  84. GOSUB BUILDFILE
  85. OUT$ = char1$ + "CONNECTED" + cr$ + lf$
  86. GOSUB BUILDFILE
  87. OUT$ = char1$ + char2$ + "ATZ" + cr$ + lf$
  88. GOSUB BUILDFILE
  89. OUT$ = char1$ + "OK" + cr$ + lf$
  90. GOSUB BUILDFILE
  91. OUT$ = char1$ + e$ + cr$ + lf$
  92. GOSUB BUILDFILE
  93. OUT$ = char1$ + "*"
  94. GOSUB BUILDFILE
  95. OUT$ = char1$ + "D" + fon$ + cr$ + lf$
  96. GOSUB BUILDFILE
  97. OUT$ = char1$ + "DIALING..." + char1$ + cr$ + lf$
  98. GOSUB BUILDFILE
  99. OUT$ = char1$ + "*" + char1$ + "R" + cr$ + lf$
  100. GOSUB BUILDFILE
  101. OUT$ = char1$ + "RETRIES" + char1$ + "2" + cr$ + lf$
  102. GOSUB BUILDFILE
  103. OUT$ = char1$ + "ANSWER TONE"
  104. GOSUB BUILDFILE
  105. RETURN
  106.  
  107.  
  108. BUILDFILE:
  109.  
  110.      fout$ = fout$ + OUT$
  111.      RETURN
  112.  
  113.  
  114. WRITEFILE:
  115.  
  116.      PRINT
  117.      PRINT "Generating Script for "; disp$
  118.      OPEN "O", 1, file$
  119.      PRINT #1, fout$
  120.      CLOSE #1
  121.      PRINT file$; " Done!"
  122.      RETURN
  123.  
  124.  
  125. TRAP:
  126.  
  127.      PRINT
  128.      PRINT
  129.      PRINT "   ***** An ERROR has occurred ***** "
  130.      PRINT
  131.      PRINT "Perhaps you have not set up a CONFIG.GS file.  The file"
  132.      PRINT "can be created in this format:"
  133.      PRINT
  134.      PRINT "C>copy con:config.gs"
  135.      PRINT "your_pcp_id_#"
  136.      PRINT "your_pcp_password"
  137.      PRINT "^Z"
  138.      PRINT
  139.      PRINT "Now it should execute with no problems.  Pressing ^C will"
  140.      PRINT "terminate the program."
  141.      PRINT
  142.      PRINT "Any other ERRORS => Who Knows???"
  143.      PRINT
  144.      PRINT "Cabell Clarke - Boot Factory OPUS/HST (13/19) - 804-262-9289"
  145.      PRINT "and"
  146.      PRINT "John Kelley - MicroFone MultiLine 107/331 - 201-494-3649"
  147.      SYSTEM
  148.  
  149.